home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 151-175 / scopedisk168 / serialrexx / event.rexx < prev    next >
OS/2 REXX Batch file  |  1995-03-19  |  418b  |  23 lines
  1. /* Event */
  2. /* trace all off */
  3. trace off
  4. arg cmd
  5. /* send to EventManager */
  6. flag = show( 'ports', 'EventManager' )
  7. if flag
  8. then do
  9.    if cmd = ""
  10.    then do
  11.       say "Enter the command 'stop' to stop the event manager."
  12.       say 'Please enter command string'
  13.       pull cmd
  14.    end
  15.    else do
  16.    end
  17.    address 'EventManager' cmd      
  18. end
  19. else do
  20.    say 'EventManager is not running.'
  21. end
  22. /* say 'End of Event.' */
  23.